home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / basic / imb9011.zip / TCOMMON.BAS < prev    next >
BASIC Source File  |  1990-11-01  |  402b  |  28 lines
  1. 'Program -- TCOMMON.BAS
  2.  
  3. 'This program test the different
  4. 'forms of the COMMON statement
  5.  
  6. DECLARE SUB SubMod2A ()
  7. DECLARE SUB SubMod2B ()
  8.  
  9. COMMON X$, y$, z$
  10.  
  11. COMMON /FirstBlock/ A$
  12. COMMON /SecondBlock/ B$
  13.  
  14. A$ = "FirstBlock value"
  15. B$ = "SecondBlock value"
  16. X$ = "First Common value"
  17. y$ = "Second Common value"
  18. z$ = "Third Common value"
  19.  
  20. CLS
  21.  
  22. CALL SubMod2A
  23.  
  24. CALL SubMod2B
  25.  
  26. END
  27.  
  28.